home *** CD-ROM | disk | FTP | other *** search
/ Aminet 1 (Walnut Creek) / Aminet - June 1993 [Walnut Creek].iso / aminet / comm / fido / xprfts072.lzh / callbacks.a next >
Text File  |  1992-09-20  |  3KB  |  197 lines
  1. ; Glue to call XPR callback functions in comm program from inside XPR library.
  2.  
  3.     INCLUDE    "exec/types.i"
  4.  
  5.     ; Entry points
  6.     XDEF    _xpr_fopen
  7.     XDEF    _xpr_fclose
  8.     XDEF    _xpr_fread
  9.     XDEF    _xpr_fwrite
  10.     XDEF    _xpr_sread
  11.     XDEF    _xpr_swrite
  12.     XDEF    _xpr_sflush
  13.     XDEF    _xpr_update
  14.     XDEF    _xpr_chkabort
  15.     XDEF    _xpr_chkmisc
  16.     XDEF    _xpr_gets
  17.     XDEF    _xpr_setserial
  18.     XDEF    _xpr_ffirst
  19.     XDEF    _xpr_fnext
  20.     XDEF    _xpr_finfo
  21.     XDEF    _xpr_fseek
  22.     XDEF    _xpr_options
  23.     XDEF    _xpr_unlink
  24.     XDEF    _xpr_squery
  25.     XDEF    _xpr_getptr
  26.  
  27.     ; XPR interface structure
  28.     STRUCTURE XPR_IO,0
  29.     APTR    XPR_FILENAME
  30.     APTR    XPR_FOPEN
  31.     APTR    XPR_FCLOSE
  32.     APTR    XPR_FREAD
  33.     APTR    XPR_FWRITE
  34.     APTR    XPR_SREAD
  35.     APTR    XPR_SWRITE
  36.     APTR    XPR_SFLUSH
  37.     APTR    XPR_UPDATE
  38.     APTR    XPR_CHKABORT
  39.     APTR    XPR_CHKMISC
  40.     APTR    XPR_GETS
  41.     APTR    XPR_SETSERIAL
  42.     APTR    XPR_FFIRST
  43.     APTR    XPR_FNEXT
  44.     APTR    XPR_FINFO
  45.     APTR    XPR_FSEEK
  46.     LONG    XPR_EXTENSION
  47.     APTR    XPR_DATA
  48.     APTR    XPR_OPTIONS
  49.     APTR    XPR_UNLINK
  50.     APTR    XPR_SQUERY
  51.     APTR    XPR_GETPTR
  52.     LABEL    XPR_IO_SIZEOF
  53.  
  54.     SECTION    text,code
  55.  
  56. _xpr_fopen:
  57.     movem.l    d2-d7/a2-a6,-(sp)
  58.     movea.l    XPR_FOPEN(a3),a6
  59.     jsr    (a6)
  60.     movem.l    (sp)+,d2-d7/a2-a6
  61.     rts
  62.  
  63. _xpr_fclose:
  64.     movem.l    d2-d7/a2-a6,-(sp)
  65.     movea.l    XPR_FCLOSE(a3),a6
  66.     jsr    (a6)
  67.     movem.l    (sp)+,d2-d7/a2-a6
  68.     rts
  69.  
  70. _xpr_fread:
  71.     movem.l    d2-d7/a2-a6,-(sp)
  72.     movea.l    XPR_FREAD(a3),a6
  73.     jsr    (a6)
  74.     movem.l    (sp)+,d2-d7/a2-a6
  75.     rts
  76.  
  77. _xpr_fwrite:
  78.     movem.l    d2-d7/a2-a6,-(sp)
  79.     movea.l    XPR_FWRITE(a3),a6
  80.     jsr    (a6)
  81.     movem.l    (sp)+,d2-d7/a2-a6
  82.     rts
  83.  
  84. _xpr_sread:
  85.     movem.l    d2-d7/a2-a6,-(sp)
  86.     movea.l    XPR_SREAD(a3),a6
  87.     jsr    (a6)
  88.     movem.l    (sp)+,d2-d7/a2-a6
  89.     rts
  90.  
  91. _xpr_swrite:
  92.     movem.l    d2-d7/a2-a6,-(sp)
  93.     movea.l    XPR_SWRITE(a3),a6
  94.     jsr    (a6)
  95.     movem.l    (sp)+,d2-d7/a2-a6
  96.     rts
  97.  
  98. _xpr_sflush:
  99.     movem.l    d2-d7/a2-a6,-(sp)
  100.     movea.l    XPR_SFLUSH(a3),a6
  101.     jsr    (a6)
  102.     movem.l    (sp)+,d2-d7/a2-a6
  103.     rts
  104.  
  105. _xpr_update:
  106.     movem.l    d2-d7/a2-a6,-(sp)
  107.     movea.l    XPR_UPDATE(a3),a6
  108.     jsr    (a6)
  109.     movem.l    (sp)+,d2-d7/a2-a6
  110.     rts
  111.  
  112. _xpr_chkabort:
  113.     movem.l    d2-d7/a2-a6,-(sp)
  114.     movea.l    XPR_CHKABORT(a3),a6
  115.     jsr    (a6)
  116.     movem.l    (sp)+,d2-d7/a2-a6
  117.     rts
  118.  
  119. _xpr_chkmisc:
  120.     movem.l    d2-d7/a2-a6,-(sp)
  121.     movea.l    XPR_CHKMISC(a3),a6
  122.     jsr    (a6)
  123.     movem.l    (sp)+,d2-d7/a2-a6
  124.     rts
  125.  
  126. _xpr_gets:
  127.     movem.l    d2-d7/a2-a6,-(sp)
  128.     movea.l    XPR_GETS(a3),a6
  129.     jsr    (a6)
  130.     movem.l    (sp)+,d2-d7/a2-a6
  131.     rts
  132.  
  133. _xpr_setserial:
  134.     movem.l    d2-d7/a2-a6,-(sp)
  135.     movea.l    XPR_SETSERIAL(a3),a6
  136.     jsr    (a6)
  137.     movem.l    (sp)+,d2-d7/a2-a6
  138.     rts
  139.  
  140. _xpr_ffirst:
  141.     movem.l    d2-d7/a2-a6,-(sp)
  142.     movea.l    XPR_FFIRST(a3),a6
  143.     jsr    (a6)
  144.     movem.l    (sp)+,d2-d7/a2-a6
  145.     rts
  146.  
  147. _xpr_fnext:
  148.     movem.l    d2-d7/a2-a6,-(sp)
  149.     movea.l    XPR_FNEXT(a3),a6
  150.     jsr    (a6)
  151.     movem.l    (sp)+,d2-d7/a2-a6
  152.     rts
  153.  
  154. _xpr_finfo:
  155.     movem.l    d2-d7/a2-a6,-(sp)
  156.     movea.l    XPR_FINFO(a3),a6
  157.     jsr    (a6)
  158.     movem.l    (sp)+,d2-d7/a2-a6
  159.     rts
  160.  
  161. _xpr_fseek:
  162.     movem.l    d2-d7/a2-a6,-(sp)
  163.     movea.l    XPR_FSEEK(a3),a6
  164.     jsr    (a6)
  165.     movem.l    (sp)+,d2-d7/a2-a6
  166.     rts
  167.  
  168. _xpr_options:
  169.     movem.l    d2-d7/a2-a6,-(sp)
  170.     movea.l    XPR_OPTIONS(a3),a6
  171.     jsr    (a6)
  172.     movem.l    (sp)+,d2-d7/a2-a6
  173.     rts
  174.  
  175. _xpr_unlink:
  176.     movem.l    d2-d7/a2-a6,-(sp)
  177.     movea.l    XPR_UNLINK(a3),a6
  178.     jsr    (a6)
  179.     movem.l    (sp)+,d2-d7/a2-a6
  180.     rts
  181.  
  182. _xpr_squery:
  183.     movem.l    d2-d7/a2-a6,-(sp)
  184.     movea.l    XPR_SQUERY(a3),a6
  185.     jsr    (a6)
  186.     movem.l    (sp)+,d2-d7/a2-a6
  187.     rts
  188.  
  189. _xpr_getptr:
  190.     movem.l    d2-d7/a2-a6,-(sp)
  191.     movea.l    XPR_GETPTR(a3),a6
  192.     jsr    (a6)
  193.     movem.l    (sp)+,d2-d7/a2-a6
  194.     rts
  195.  
  196.     END
  197.